unit unt_cadastro_livro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, Mask, StdCtrls;

type
  Tfrm_cadastro_livros = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    bt_salvar: TSpeedButton;
    bt_voltar: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ed_titulo: TEdit;
    ed_editora: TEdit;
    ed_autor: TEdit;
    Label3: TLabel;
    ed_ano: TEdit;
    procedure bt_voltarClick(Sender: TObject);
    procedure bt_salvarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cadastro_livros: Tfrm_cadastro_livros;

implementation

{$R *.dfm}
uses
DataModule;

procedure Tfrm_cadastro_livros.bt_salvarClick(Sender: TObject);
var
  titulo : String;
  autor : String;
  editora : String;
  ano : String;
  sql: String;

begin
  titulo := ed_titulo.Text;
  autor := ed_autor.Text;
  editora := ed_editora.Text;
  ano := ed_ano.Text;
  if (titulo <> '') then
  begin
    DataModule.DataModule1.qryLivros.Close;
    sql := 'INSERT INTO Livros';
    sql := sql + ' (titulo_livros, autor, editora, ano_lancamento)';
    sql := sql + ' VALUES ('''+titulo+''', '''+autor+''', '''+editora+''', '''+ano+''')';
    DataModule.DataModule1.qryLivros.SQL.Text := sql;
    DataModule.DataModule1.qryLivros.ExecSQL;
    Application.MessageBox('Livro cadastrado ','',MB_ICONINFORMATION);
    close;
  end;
end;

procedure Tfrm_cadastro_livros.bt_voltarClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_cadastro_livros.FormCreate(Sender: TObject);
begin
  ed_titulo.Text := '';
  ed_autor.Text := '';
  ed_editora.Text := '';
  ed_ano.Text := '';

end;

end.
